with AWndClass do Style:=Style or cs_CreateOnAccOpen
end;
function TZeitDialog.GetStyle: integer;
begin
GetStyle:=inherited GetStyle or SIZER or FULLER
end;
function TZeitDialog.OK: boolean;
var valid : boolean;
td : string;
hr,mn,sk,
tg,mo,jr: word;
begin
valid:=inherited OK;
hr:=0; { damit der Compiler nicht meckert... }
mn:=0;
sk:=0;
tg:=0;
mo:=0;
jr:=0;
if valid then
begin
td:=edz^.GetText;
if (length(td)<>4) and (length(td)<>6) then valid:=false
else
begin
if length(td)=4 then td:=td+'00';
hr:=atol(StrPLeft(td,2));
mn:=atol(copy(td,3,2));
sk:=atol(StrPRight(td,2));
valid:=Between(hr,0,23) and Between(mn,0,59) and Between(sk,0,59)
end;
if not(valid) then Application^.Alert(@self,1,STOP,'Bitte geben Sie eine korrekte Zeit ein!',' &OK ')
end;
if valid then
begin
td:=edd^.GetText;
if (length(td)<>6) and (length(td)<>8) then valid:=false
else
begin
if length(td)=6 then td:=StrPLeft(td,4)+'19'+StrPRight(td,2);
jr:=atol(StrPRight(td,4));
mo:=atol(copy(td,3,2));
tg:=atol(StrPLeft(td,2));
valid:=Between(jr,1980,2099) and Between(mo,1,12) and Between(tg,1,31)
end;
if not(valid) then Application^.Alert(@self,1,STOP,'Bitte geben Sie ein korrektes Datum ein!',' &OK ')
end;
if valid then
begin
tsettime((hr shl 11) or (mn shl 5) or (sk shr 1));
tsetdate(((jr-1980) shl 9) or (mo shl 5) or tg);
Application^.Quit
end;
OK:=valid
end;
function TZeitDialog.Cancel: boolean;
var valid: boolean;
begin
valid:=inherited Cancel;
if valid then Application^.Quit;
Cancel:=valid
end;
function TZeitDialog.Help: boolean;
begin
Application^.Alert(@self,1,NOTE,'Bringen Sie den Mauscursor auf das Dialogelement, für das Sie Hilfe benötigen. Drücken Sie dann die <Help>- oder die rechte Maus-Taste.',' &OK ');
Help:=false
end;
begin
{ if ((tgetdate shr 9)>=14) and AppFlag then halt; ... }
